############################ Table Functions ##################################

#Add Lagging Zeros:
Lag_zero <- function(x,digits=3){
  y <- as.character(round(x,digits))
  
  y<- formatC(as.numeric(y), format = 'f', flag='0', digits = digits)
  return(y)
}





#Starfunction:
star_function = function(x){
  output = rep("",length(x))
  output[x<0.1] = "^{*}"
  output[x<0.05] = "^{**}"
  output[x<0.01] = "^{***}"
  output[x==0] = "^{***}"
  return(output)
}

